capture log close
version 11
clear all
set linesize 80
set mem 500m
set matsize 800
macro drop _all
clear all
set more off

use GH_SS_Replication.dta

*/ t-test referenced in text prior to Table 1 */
ttest msadopt, by(win)

*/ Table 1 */

*/ Unilateral Modern System Implementation and Victory */
tab msadopt win, row all

*/ Bivariate Modern System Implementation and Victory */
tab msadoptcompare win, row all

*/ Regime Type and Victory */
tab politycompare win, row all

*/ Material Power and Victory */
tab powercompare win, row all

*/ Table 2 */

*/ M1 */
probit win msadopt, cluster(ccode)
estimates store m1

*/ M2 */
probit win msadoptcompare, cluster(ccode)

*/ M3 */
probit win msadopt polity politysquared cinc terrain troopsengaged opptroopsengaged, cluster(ccode)

*/ M4 */
probit win msadopt polity politysquared cinc strat terrain troopsengaged opptroopsengaged bankseducation loggdppercapita bankscoups, cluster(ccode)

*/ M5 */
probit win msadoptcompare polity politysquared politysideb politysidebsquared sideAbof terrain strat troopbalance bankseduccompare bankscoupscompare, cluster(ccode)

*/ Table 3 */

*/ Regime Type */
tab regime msadopt, row all

*/ Logged GDP Per Capita */
tab loggdpcomparecats msadopt, row all

*/ Material Capabilities */
tab cinccomparecats msadopt, row all

*/ Table 4 */

*/ M1 */
oprobit msadopt polity politysquared cinc terrain troopsengaged opptroopsengaged, cluster(ccode)

*/ M2 */
oprobit msadopt polity politysquared cinc terrain strat troopsengaged opptroopsengaged, cluster(ccode)

*/ M3 */
oprobit msadopt polity politysquared cinc terrain strat troopsengaged opptroopsengaged bankseducation bankscoups loggdppercapita, cluster(ccode)

*/ Figure 1 */
collapse (mean) msadopt, by(polity)
twoway qfit msadopt polity, sort lpattern(dash) lwidth(medthick) ytitle(Average Modern System Adoption Level, margin(medsmall)) ylabel(, angle(horizontal) labsize(small) ) xtitle(Regime Type (Polity Score), margin(medsmall)) xlabel(, labsize(small) ) graphregion(fcolor(white) ifcolor(none)) plotregion(fcolor(white) ifcolor(none))

*/ Appendix */

clear
use GH_SS_Replication.dta

*/ B.3: Excluding Banks and GDP variables */
probit win msadoptcompare polity politysquared politysideb politysidebsquared sideAbof terrain strat troopbalance, cluster(ccode)

*/ B.4: Interactions */
probit win msadopt polity cinc politypower modernpolity modernpower, cluster(ccode)
regress win msadopt polity cinc politypower modernpolity modernpower, cluster(ccode)

*/ B.5: Testing impact of US and Nazi Germany */
oprobit msadopt polity politysquared cinc terrain strat troopsengaged opptroopsengaged bankseducation bankscoups loggdppercapita if usnazi==0, cluster(ccode)

*/ B.6: Testing impact of conscription */
oprobit msadopt polity politysquared cinc terrain strat troopsengaged opptroopsengaged bankseducation bankscoups loggdppercapita finalconscr, cluster(ccode)
